home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / LABELS.PAS < prev    next >
Pascal/Delphi Source File  |  1989-06-30  |  512b  |  27 lines

  1. PROGRAM label_illustration;
  2.  
  3. LABEL 274,repeat_loop,help,dog;
  4.  
  5. VAR counter : BYTE;  (* This limits us to a maximum of 255 *)
  6.  
  7. BEGIN
  8.   WRITELN('Start here and go to "help"');
  9.   GOTO help;
  10.  
  11. dog:
  12.   WRITELN('Now go and end this silly program');
  13.   GOTO 274;
  14.  
  15. repeat_loop:
  16.   FOR counter := 1 TO 4 DO WRITELN('In the repeat loop');
  17.   GOTO dog;
  18.  
  19. help:
  20.   WRITELN('This is the help section that does nothing');
  21.   GOTO repeat_loop;
  22.  
  23. 274:
  24.   WRITELN('This is the end of this spaghetti code');
  25.  
  26. END.
  27.